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Section INTRODUCTION TO BPRINT MANUAL 



This manual describes the use and operation of a driver 

for interfacing serial printers to Poly 88 BASIC. 

Section 1 provides instruction for the immediate use of 

BPRINT. 

Section 2 contains indepth information regarding BPRINT 

use and installation. 

A program listing for hooking BASIC to HyTypes and 

DecWriters follows Section 2. 
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Section 1 SUMMARY FOR IMMEDIATE USE OF BPRINT 

Make certain the printer is correctly attached to the 
printer interface, that it is "on" and not on "LOCAL". 
It must be ready fo on-line operation. 

1.1 Loading BPRINT 

BPRINT must be used only with Poly UK BASIC version 

AJ3J9 and later. Load BASIC (instructions are in your 

BASIC manual). Stop the cassette tape (BPRINT is on 

the same side of the tape as BASIC). Hit reset button 

on the front panel. Type B or P (depending upon the format 

of your BASIC TAPE), type BPRINT, hit carriage return, and 

restart the tape. After BPRINT has loaded, BASIC 

will return to the monitor screen. Be careful if you 

load BPRINT after BASIC has been running for a while. 

Loading BPRINT erases any BASIC programs that you 

might have had loaded in memory. You start ,f fresh" with 

BASIC, as if you had just loaded it. 

1.2 BASIC Commands for operating the Printer 

To: Type: 

Enable the printer PRINT CHR$(17) 

Disable the printer PRINT CHR$(19) 

Disable the keyboard PRINT CHR$(2j3) 

Enable the keyboard PRINT CHR$ (18) 

Note: Printer must be enabled before 

keyboard can be enabled. 
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1.3 Modifying the Baud Rate Used by BPRINT 

BPRINT has been set up to work for printers operating 
at a baud rate of 300 (HyType or DecWriter, for example). 
This is the most common baud rate used by printers. If 
your printer uses a different baud rate, a change must 
be made in the BPRINT program. This can easily be done, 
either from the front panel mode, or from BASIC. After 
determining the baud rate used by your printer, refer 
to the enclosed table. Find the baud rate you need. 
Look at its equivalent in the Hexadecimal column. Use 
this mumber to replace the old baud rate number, 16 hexa- 
decimal . 

For instance, if you wish to change the baud rate from 
300 baud to 1200 baud, look up 1200 baud. Its equiva- 
lent hexadecimal number is 19. Therefore the hexidecimal 
19 will replace the old baud rate. 

A. Changing the Baud Rate from the Front Panel 



Using the example above, we will change the baud rate 
from 300 to 1200. 

1) Load BASIC and BPRINT 

Type Control-Z to get to the front panel. 

Type L4A98 followed by a carriage return, to get to 

memory location 4A98 (whose contents set the 

baud rate) . 

Type the number 19, followed by a space. 

Type SPJ49C0, to get to the start address of 

BASIC when hooked in with BPRINT. 

Hit a carriage return, and then tupe G. You 

will now be back in BASIC. 



2) 
3) 



4) 
5) 

6) 
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B. Changing the Baud Rate from BASIC, 

Again, using the example above, we will change the baud 
rate from 300 to 1200. 

1) Load BASIC and BPRINT. 

2) After a BASIC prompt, type: 

POKE 19096,25 

3) You will now be ready to continue on in BASIC. 

The POKE function allows you to directly input a num- 
ber into memory. As BASIC deals only with decimal num- 
bers, the memory location 4A98 (a hexidecimal number) is 
converted to its decimal representation, 19096. You must 
then convert the hex number representing the baud rate to 
a decimal number (see enclosed table). The number 25 in 
the example above is the decimal representation of the 
hexidecimal nymber 19 used in the previous example. To 
check this memory location you may use the BASIC function 
PEEK (see your BASIC manual for an explanation of this 
function) . 

1.4 Restarting BASIC 

If you should need to restart BASIC (for instance, to 
return from front panel mode), use the address 49C0, 
instead of the usual BASIC start address of 2000, if 
BPRINT is to be used again. When in the front panel mode 
restart BASIC by typing SPJ49C0. Then hit a carriage 
return and type G. 
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BAUD RATE TABLE 



Baud Rate Replacement Numbers 
Decimal 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



bers 


Baud Rate 


Hexadecimal 




11 


50 


12 


75 


13 


1 10 


14 


134.5 


15 


150 


16 


300 


17 


600 


18 


900 


19 


1200 


1A 


1800 


IB 


2400 


1C 


3600 


ID 


4800 


IE 


7200 


IF 


9600 
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Section 2 THE POLY 88 BASIC PRINTER DRIVER 

Section 2 describes the use and operation of a driver 
for interfacing serial printers to Poly 88 BASIC. This 
driver is applicable ONLY to Poly 88 BASIC versions A00 
and later. The driver program, in conjunction with a 
Poly 88 printer interface card, and Poly 88 BASIC, 
provides the ability to print and list on the serial 
device, and also use the keyboard on that serial device. 
The driver program is set up for 300 baud devices, 
such as the HyType, or DecWriter, but may be changed 
for use with 110 baud devices, 

2.1 Installing the Printer Driver 

To load the printer driver, BASIC must first be loaded. 
When BASIC has started, and has printed its version mes- 
sage, the printer driver may be loaded. Hit reset on the 
front panel, and make sure the printer device is attached 
to the Poly 88, and is powered on. Now load the driver, 
by typing B or P, depending on the type of tape you have, 
followed by BPRINT (the normal tape booting, procedure) . 
This tape will auto-start, and you will see the BASIC 
herald one again. At this time, the driver is initial- 
ized, and you may load your BASIC program. Note that after 
performing its initialization, the printer driver "cold 
starts" BASIC. This means that any program you had loaded 
is erased. You will also notice that the number of free 
bytes available has decreased about 500 bytes, this is the 
space taken up by the printer driver and the printer buffer, 
If the message "Nuts!" is displayed on the screen, rather 
than BASIC restarting, you have tried to use the driver 
with an earlier version of BASIC, or BASIC was not loaded. 
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BASIC must be loaded before loading the printer driver and 
BASIC version A0JD or later must be used because of the 
"floating patch" - it dynamically hooks itself into BASIC. 

2.2 Using the Printer (and its Keyboard, if Any) 

The printer driver is "attached" to the character output 
path in the system; it handles each character that is out- 
put to the video screen. The functions of starting and 
stopping printing, enabling and disabling the keyboard on 
the serial device, are all done by sending control codes 
to the video screen through the printer driver. These 
control codes and their functions are: 



Name Val ue 

XON,DCl,ctl~Q 11H/17 

X0FF,DC3,ctl-R 13H/19 

TAPE,DC4,ctl-S 12H/18 

TAPE,DC4,ctl-T 14H/2J3 



Function performed 
Enable the printer 
Disable the printer 
Enabl e the keyboard 
Disable the keyboard 



After an XON is sent to the screen, all characters sent to 
the screen by BASIC (excl uding graphics characters used 
by PLOT, or characters placed on the screen through POKE 
to modify memory) will also be sent to the printer- Send- 
ing XOFF stops this process. Because the printer device 
is much slower than the screen, the characters that are 
to be printed are first placed in a 256 byte buffer. This 
buffering allows the screen to proceed at a higher speed 
until the buffer fills. This also means that you may send 
the XOFF to the printer, and it may keep printing for 
a while because of the characters remaining in the buffer. 
Sending a DC2 to the screen enables the keyboard on the 
serial device (if one exists). From that time, any keys 
struck on the keyboard before a DC4 is sent to the screen, 
will appear to the system just as if they were sent hy the 
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normal keyboard on the Poly 88 (NOTE: this INCLUDES con- 
trol-Y AND control-Z). Because of the type-ahead buffer- 
ing done by BASIC, some characters may be present in the 
buffer when the DC4 is sent. These characters may be 
deleted either by typing PRINT CHR$(24). Control-X is 
18H, or 24 in decimal . 

2.3 Using Tapes 

Once the printer driver has been installed, a certain 
amount of care must be used in loading and saving files 
on cassettes. Because the serial printer interface and 
the cassette interface run on the same channel, only 
one may be operational at a time. For this reason, 

THE PRINTER AND THE PRINTER KEYBOARD MUST 

BE DISABLED BEFORE USING CASSETTES IN BASIC. 

THIS MAY BE DONE BY THE DIRECT BASIC STATEMENT 

PRINT CHR$(19), CHR$(20) 
Failure to do this will result in a period of normal, 
polite behavior, resulting in a sudden and indiscrete 
stop when the printer buffer fills up. If this happens 
BASIC must be restarted in a special way to again initial- 
ize the printer driver. 

2.4 Restarting BASIC with the Printer Driver 

If Basic becomes "wedged", or must be restarted, it should 
be restarted at address 49C0 INSTEAD of 2000 if the printer 
driver is to be used again. Restarting BASIC at 2000 
or 2003 after the front panel RESET button has* been used 
will NOT RECONNECT THE PRINTER DRIVER. Again, when the 
system is restarted at 49C0, BASIC is COLD STARTED, CLEAR - 
IN6 THE PROGRAM. 
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The printer interface is composed of three distinct 
sections: 

1 ) i n i t i a 1 i 2 a t i o n 

2) interrupting processing 
3)character interception. 

The initialization section, starting with the label 
START in the accompanying assembly listing, verifies 
that the proper version of BASIC is loaded, modifies 
the starting memory limit it BASIC, and attaches itself to 
wormhole 1, the character output wormhole. In this manner, 
all calls to that wormhole will be vectored through the 
entry point labeled COUT. As characters are sent to worm- 
hole 1, they are examined by COUT. If the character is 
among XON, XOFF, DC2, or DC4, we transfer to the special 
processing routine that handles that character. If we 
see a XON, we go to CXON to set up the interrupt handler 
and the buffer pointers. TISR is set up as the inter- 
rupt processing routine to be called when we get an inter- 
rupt from the 8251 USART. The output flag, OFLG is set 
non-zero to indicate that characters are to be buffered. 
The ring buffer insertion and removal pointers (TPP and 
TGP for put and Get) are set, and the USART is started 
after calling the monitor SETUP routine to define the 
USART mode. Note that this processing is done with the 
interrupts DISABLED. This is because the pointers TPP 
and P are "interrupt alterable", that is, they are altered 
at the interrupt level. If we did not disable the interrupts 
at the start of CXON, once we set the address of our inter- 
rupt routine, TISR into TINT, the USART could interrupt us, 
with TPP and TGP having undefined contents (with unde- 
fined results!). If the character was not a special one, 
we test the flag OFLG to see if the printer is enabled. 
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If the flag is zero, we are not enabled, and we go to 
CEXIT to return through the normal wormhole processing. 
If we are buffering characters for the printer, (OFLG 
non-zero), we transfer to CCR if the character is a car- 
riage return, and to POKE if it is not, (both actions buffer 
the character) and then we exit. 

Because the video driver in ROM performs the equivalent 
"line feed" action when given a carriage return, we 
must process carriage returns specially. CCR outputs 
the carriage return, and a number of padding characters 
(for DecWriter delay and such), and then outputs a line 
feed to the buffer. POKE is called to place characters 
into the ring buffer. We disable interrupts, as we are 
going to use TPP and TGP, which can be altered by TISR, 
which runs at the interrupt level. If there is room in 
the buffer, we place the character in it, and update the 
pointer (TPP). If there is no room, we go to HANG to 
enable interrupts and wait. We will wait in this manner 
until we have room in the buffer for the character. 
This is the reason the front panel light flashes on and off 
when driving the printer. The buffer fills up, and we 
start waiting for an empty slot to put the character in. 
We enter TISR as a result of an interrupt from the 8251 
USART. If it is an interrupt caused by a keyboard char- 
acter, we test the flag IFLG, and if it is non-zero, we 
get the character from the USART, and jump into BASIC 
to process it. If IFLG is zero, we "drop it on the floor 11 . 
When we detect that the transmitter buffer is empty 
(the pointer TTP and TGP are equal), we will "give it 
a fish" - feed it a DEL code. Otherwise, we take the 
next character from the buffer, update the pointers, 
and send it to the USART. (The ring is on buffer on a 256 
byte boundary, to simplify the coding.) TPP is used as 
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the "put" pointer, for inserting characters. TCP 
is used as the "get 11 pointer. When these pointers are 
equal, the buffer is empty. If they are equal after one has 
been decremented (and checked for wrap-around), then 
the buffer is full. This need only be checked by the inser- 
tion routi ne. 

2.6 Special Problems 

When driving a terminal such as the HyType, which does not 
require padding character following the carriage return, 
the routine PAD may be eliminated. One way of accom- 
plishing this is to modify the first byte of PAD from a 
3E to a C9 ; changing the MV1 into a RET instruction. Making 
this change eliminates the padding characters from being 
placed in the buffer. If other than a 3J90 baud device 
is used, the bytes following the call to SETUP (location 
4A98 in the listing) must be changed to denote the new 
speed and parity format for the device. 

Special thanks go to R. Hustvedt for explaining the tech- 
niques used in dynamic patches. 
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2 000 
200E 
205D 
206B 

02AD 
0064 
0C16 
0C24 

OOOD 
OOOA 
007F 
001 I 
0013 
0012 
0014 
49C0 
4500 
4C00 



Driver for hooking BASIC to Hytvpes and Decwriters. 
For use with BASIC version A00 and later 

Device is to be loaded AFTER starting BASIC. Hooks int 
interrupts, wormholes, and BASIC. Send it an XOM, and 
that time until you send it an XOFF, all characters 
sent to the screen thru wormhole 1 will appear on the 
Send it a DC2 (TAPE), and any keystrokes on the thing' 
keyboard will be plotzed into the keyboard buffer. Thi 
stopped by sending a DC4 (not TAPE) to the screen. 



BGO 

BTXT 
BMLL 
BKB 

SETUP 
IORET 
TINT 
WHJ-. 

CR 
LF 

JUNK 
XOH 

XOFF 
DC2 

DC4 
CODE 
3UF 
MEND 



EOU 
EQU 
EOU 
EOU 

EQU 
EQU 
EQU 
EQU 

EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



2000H 
2 OOEH 
205DH 
206BH 

2ADH 
64H 
0C16H 
0C24H 

ODH 

OAH 

7FH 

MH 

1 3H 

12H 

I4H 

49C0H 

4 BOOH 

BUF+256 



start BASIC 

version text in BASIC 

lower memory limit in da. 

BASIC keyboard interrupt routi 

usart setup code in rora 
Interrupt return point; 
USART interrupt vector 
wormhole 1 for output 

carriage return 

line feed 

junk padding code sent 

printer on 

printer off code 

keyboard on 

keyboard off code 

above BASIC 



256 byt< 



buffer 



49C0 

4-9C0 C3204A 



ORG 
JMP 



CODE 
START 



startuD code-check and hook in 



49C3 DBO! 


TISR: 


IN 


1 


49C5 IF 




RAR 




49C6 DADE49 




JC 


W RT 


49C9 IF 




RAR 




49CA D26400 




JNC 


IORET 



Interrupt service routine. We just cot an interrupt 
from the stinking 3251 

what does the thing want 

j Tip /wants a character * 

jmp/just harassing us, 

USART has a character . If IFLO is nonzero, foist off o 
BASIC'S keyboard interrupt logic, otherwise drop it. 



; jmp/drop it on the floor. 

; lean off into BASIC! 

; get the character 

; and solit. 



49CD 


3A 1 C4A 




LOA 


IFLO 


49D0 


B7 




OR A 


A 


49D! 


CAD949 




JZ . 


DROP 


49D4 


D300 




I ;■,' 





49D6 


C36B20 




j?.:p 


3I\B 


49D9 


D300 


DROP-* 


T M 

J. ■ ' 





49DB 


C36400 




jr.? 


IORET 






; 825! 


v/ants a charac 
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49DE 


2A1A4A 


49E1 


3A184A 


49E4 


BD 


49E5 


CAF649 


49E8 


7E 


49E9 


2D 


49EA 


C2EE49 


49ED 


2D 


49 EE 


221A4A 


49F1 


D300 


49F3 


C36400 



WRT: 



49F6 
49F8 



3E7F 

C3EE49 



WRT1 



LHLD 


TCP 


LDA 


TPP 


CMP 


L 


JZ 


FISH 


MOV 


A,M 


DCR 


L 


JNZ 


WRT1 


DCR 


L 


SHLD 


TGP 


OUT 





J MP 


IORET 



; anything in buffer? 

; jmp/nope, give it a fish* 

; get chr from buffer 

; dink pointer 

; jmp/no wrap 

; reset ptr. 

; save pointer 

; shove chr out the door 

; and split* 



; It wants a chr; we don't have one- give it a fish. 



FISH: 



MVI 
JM? 



A, JUNK 
;7RT1 



; Take that! 



; Text we search for 



49FB 


506F6C79 


TEXT: 


49FF 


20383820 




4A03 


42415349 




4A07 


43207665 




4A0B 


7273696F 




4A0F 


6E2041 





D3 



'Poly 88 BASIC version A' 



? Gripe text 



4A12 4E757473 HUTS: 
4A16 2100 



DB 



'Huts!',Q 



; Various flags and such. 



4A18 




TPP J 


DS 


2 


4AIA 




TGP: 


DS 


2 


4A1C 




IFLG: 


DS 


i 


4A1D 




OFLG: 


DS 


1 


4A1E 




WORM: 


DS 


2 






; Startuo code. 


Check 


4A20 


F3 


START: 


DI 




4A21 


2I0E20 




LXI 


H,3TXT 


4A24 


1IFB49 




LXI 


D t TEXT 


4A27 


0E17 




MVI 


C,23 


4A29 


1A 


CL: 


LDAX 


D 


4A2A 


BE 




CMP 


M 


4A2B 


C2504A 




JNZ 


NOPE 


4A2E 


23 




I MX 


H 


4A2F 


13 




I! IX 


~\ 


4A30 


OD 




DCR 




4A31 


C2294A 




JMZ 


CL 



; buffer put pointer 
; buffer get pointer 
; input process flag 
; output process flag 
; old wormhole contents 

Check for the proper version of BASIC- 



; pointers and length to check 

; is this the right version? 
; jmp/nooe, I quit- 



low diddle memory limits in 3A5IC 



4 A3 4 21 004C 


LXI 


4A37 225D20 


SHLD 




1 

; clear the 



B:'LL ; poke! 
flaps for im'.'t and outer 
2 
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4A3A AF 
4A3C 321C4A 
4A3E 321D4A 



4A41 2A250C 
4A44 22IE4A 
4A47 21CF4A 
4A4A 22250C 



4A4D C30020 



XRA 


A 


5TA 


IFLG 


STA 


OFLG 



; Steal the wormhole for printing on the screen 

LKLD !\'H1 + 1 

3HLD WORM ; old contents 

LXI i-UCOUT ; out thing 

StiLD NH1+1 ; hook.it up. 

? 

; Start up BASIC 
? 

J11P BGO ; scratch off 

♦ 

; Gripe -this is not the right version of BASIC 



4A50 21 124A 


NOPE: 


LXI 


H,NUTS 


4A53 7E 


NL: 


MOV 


A,M 


4A54 B7 




ORA 


A 


4A55 CA534A 




JZ 


NL 


4A58 CD240C 




CALL 


i'.'Ki 


4A5B 23 




I NX 


H 


4A5C C3534A 




JMP 


NL 



; spin when thru! 



; POKE puts the thing in A in the buffer. Note that if t 
; buffer is full, it will hang you out to dry. 



4A5F 


FB 


4A60 


76 


4A61 


Fl 


4A62 


F5 


4A63 


F3 


4A64 


2A184A 


4A67 


77 


4A63 


3A1A4A 


4A6B 


2D 


4A6C 


C2704A 


4A6F 


2D 


4A70 


3A1A4A 


4A73 


BD 


4A74 


CA5F4A 


4A77 


22134A 


4A7A 


Fl 


4A7B 


F3 


4A7C 


C9 



HANG: 



POKE: 



P0KE1 



EI 

HLT 

POP 

PUSH 

DI 

LHLD 

MOV 

LDA 

OCR 

JNZ 

OCR 

LDA 

c:,\? 

JZ 

SHLD 
POP 
EI 



PSN 
PS IV 

TPP 

M,A 

TGP 

L 

POKE 

L 

TGP 

L 

TPP 



; wait for an interrupt already. 

; get chr back. 

; save this. 

; don't bug me, I'm busy. 

; poke into buffer 



DP' 



1 



; see if buffer is full. 

ino/vuo, must v/ait. 
if not, set oointer 
pet thino bck 
let th* world intrude, 
a nd s o 1 i t . 



; PAD sends out 10'JUiIK characters. 



4A7D 


3E7F 


PAD: 


M V I 


A, JUNK 


4A7F 


06 OA 




MVI 




4AS1 


CD624A 


PADL: 


CALL 


POKE 


4A34 


05 




DC^ 


-j 


4 A3 5 


C23 1 4A 




JNZ 


PADL 


4 A 33 


C9 




3 —T 





CXON handles XON to start the orinter. 



CXON 
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4 AS A 
4ASB 
4A8C 
4A8F 
4A92 
4A95 
4A98 
4A9C 
4A9D 
4A9E 
4A9F 
4AA2 
4AA5 
4AA8 
4AAA 



4AAC 
4AAD 
4AB0 
4AB! 
4AB2 



D5 

C5 

2 I C3 49 

22 I 60C 

321D4A 

CDAD02 

16AA40DA 

00 

CI 

Dl 

21 FF43 
22134A 

22 1 A4A 
3E27 
D301 



F1 
2AIE4A 

E3 
F3 
C9 



4AB3 AF 
4AB4 321D4A 
4AB7 C3AC4A 



4ABA AF 
4ABB 321C4A 
4ABE C3AC4A 



4 AC I CD624A 
4AC4 CD7D4A 
4AC7 3E0A 
4AC9 CD624A 
4ACC C3AC4A 



4ACF 


E5 


4AD0 


F5 


4ADI 


FE1 I 


4AD3 


CA394A 


4AD6 


FE13 


4ADS 


CAB34A 


4ADB 


FE12 


4 ADD 


CABD4A 


4AE0 


FE14 


4AE2 


CABA4A 


4AE5 


3A1D4A 


4AE3 


37 


4AE9 


r* t A . C A S 



PUSH D 

PUSH 3 

LXI H,TISR 

SHLD TINT ; rcake sure we have interrupts, 

STA OFLG ; set flaa non-zero, disable 

CALL SETUP ; set ud US ART 

OB 16H,OAAH,40H,ODAH,0 

POP 3 

POP D 

LXI H,BUF+255 

SHLD TPP 

SHLD iGP ; set ud buffer oointers 

XVI A t 27H 

OUT 1 ; start JSART running 

CEXIT is the central exit loaic 



CEXIT 



P OP 


PS'.'/ 


LHLD 


'.'IORM 


X'THL 




EI 




RET 





CXOFF handles XOFF sent to us. 



CXOFF: XRA 
STA 
J;.<P 



A 
OFLG 

CEXIT 



CDC" 2 is for DC2, to start keyboard up. 

; entry to turn off keyboard 



CDC4: 
CDC 2: 



XRA 
STA 
JMP 



A 

IFLG 
CEXIT 



; CCR processes a carriage return. 



CCR: 



CALL 


POKE 


CALL 


PAD 


MVI 


A,LF 


CALL 


POKE 


J HP 


CEXIT 



; cr and nuff padding 
; and a line feed. 



COUT is the entry point for chr o^iv.jt* 

MOTE! we can't leave anythinq chanced! 



COUT 



PUSH 


H 


PUSH 


PS'.i 


CPI 


X ON 


JZ 


CXON 


CPI 


XOFF 


JZ 


CXOFF 


CPI 


DC2 


JZ 


CDC2 


CPI 


DC 4 


JZ 


CDC4 


LDA 


OFLG 


OR A 


A 


JZ 


rev it 



; do we or doni 

; ir.nA/e don't, 



we 



? . 
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4AEC Fl 


POP 


PS','.' 


4AED F5 


PUSH 


PSW 


4AEE FEOD 


CPI 


CR 


4AF0 CAC14A 


JZ 


CCR 


4AF3 CD624A 


CALL 


POKE 


4AF6 C3AC4A 


JKP 


CEXIT 




That's 


all, f 



jmp/go do CR if needed. 

jmp/just buffer 

if not special, buffer and 



spl 



OOOO 






